SOHO - Exploring the Sun - 2003 Update/SOHO - Exploring the Sun - 2003 Update.iso/pc/data/main.dcr/buttons_5.ls

Text File | 2003-02-25 | 3.9 KB | 139 lines

on prepareFrame
  global JumpAmount
  if JumpAmount > 0 then
    if the visible of sprite 104 <> 1 then
      set the visible of sprite 104 to 1
    end if
  else
    if the visible of sprite 104 <> 0 then
      set the visible of sprite 104 to 0
    end if
  end if
end

on exitFrame
  global bl, xp, yp, notrollover, blminus, RoverNow, RoverLast, spr, FirstMain, global_volume
  if not soundBusy(1) then
    if (the frame >= label("newsun")) and (the frame < label("newsun_endloading")) then
      puppetSound(1, member "Sohoprg3" of castLib "audio")
    else
      if ((the frame >= label("sunh_01")) and (the frame < label("soho_results_old"))) or ((the frame >= label("sun_cover")) and (the frame < label("esa"))) then
        puppetSound(1, member "Sohoprg2" of castLib "audio")
      else
        if (the frame >= label("mainmenu")) and (global_volume > 0) then
          puppetSound(1, member "Sohoprg" of castLib "audio")
        end if
      end if
    end if
  end if
  if blminus = 1 then
    nothing()
  else
    if rollOver(100) then
      set RoverNow to 100
    end if
    if rollOver(101) then
      set RoverNow to 101
    end if
    if rollOver(103) then
      set RoverNow to 103
    end if
    if rollOver(104) then
      set RoverNow to 104
    end if
    if rollOver(105) then
      set RoverNow to 105
    end if
    if rollOver(106) then
      set RoverNow to 106
    end if
    if rollOver(107) then
      set RoverNow to 107
    end if
    if rollOver(120) then
      set RoverNow to 120
    end if
    if not rollOver(120) and not rollOver(100) and not rollOver(101) and not rollOver(103) and not rollOver(104) and not rollOver(105) and not rollOver(106) and not rollOver(107) then
      set notrollover to 1
      if bl > 0 then
        set blminus to 1
      end if
    else
      if rollOver(120) then
        set spr to 114
      else
        set spr to 108
      end if
      set notrollover to 0
    end if
  end if
  if rollOver(120) and (bl = 0) then
    set xp to 540
    set yp to 420
    set the member of sprite 114 to member "edit_hlp" of castLib "buttons"
  end if
  if rollOver(100) and (bl = 0) then
    set xp to 560
    set yp to 465
    if the frame < label("mmstart") then
      set the member of sprite 108 to member "volume_hlp2b" of castLib "buttons"
    else
      set the member of sprite 108 to member "volume_hlp2" of castLib "buttons"
    end if
  end if
  if rollOver(101) and (bl = 0) then
    set xp to 560
    set yp to 465
    if the frame < label("mmstart") then
      set the member of sprite 108 to member "volume_hlp1b" of castLib "buttons"
    else
      set the member of sprite 108 to member "volume_hlp1" of castLib "buttons"
    end if
  end if
  if rollOver(103) and (bl = 0) and (the locV of sprite 99 <> 6) then
    set xp to 90
    set yp to 8
    set the member of sprite 108 to member "mainmenu_hlp" of castLib "buttons"
  end if
  if rollOver(105) and (bl = 0) then
    set xp to 333
    set yp to 450
    set the member of sprite 108 to member "edit_hlp" of castLib "buttons"
  end if
  if rollOver(104) and (bl = 0) then
    set xp to 430
    set yp to 433
    set the member of sprite 108 to member "back_hlp2" of castLib "buttons"
  end if
  if rollOver(106) and (bl = 0) then
    set xp to 55
    set yp to 437
    set the member of sprite 108 to member "left_hlp" of castLib "buttons"
  end if
  if rollOver(107) and (bl = 0) then
    set xp to 105
    set yp to 433
    set the member of sprite 108 to member "right_hlp" of castLib "buttons"
  end if
  if the locH of sprite spr <> xp then
    set the locH of sprite spr to xp
    set the locV of sprite spr to yp
  end if
  if (RoverNow <> RoverLast) and (bl > 0) then
    set blminus to 1
  end if
  if blminus = 1 then
    set bl to bl - 30
    set the blend of sprite spr to bl
  else
    if (notrollover = 0) and (bl < 90) then
      set bl to bl + 30
      set the blend of sprite spr to bl
    end if
  end if
  if bl = 0 then
    set blminus to 0
  end if
  set RoverLast to RoverNow
end